home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
An Invitation to the Roland World of Music
/
Roland - An Invitation To The Roland World Of Music.bin
/
vb
/
vb30
/
disk1
/
biblio.fr_
/
biblio.bin
Wrap
Text File
|
1993-04-27
|
42KB
|
1,314 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00808080&
Caption = "Bibliography Database Browser"
ClientHeight = 5670
ClientLeft = 645
ClientTop = 1890
ClientWidth = 8385
Height = 6360
Icon = BIBLIO.FRX:0000
Left = 585
LinkTopic = "Form1"
ScaleHeight = 5670
ScaleWidth = 8385
Top = 1260
Width = 8505
Begin PictureBox Group
BackColor = &H00C0C0C0&
Height = 4950
Index = 1
Left = 0
ScaleHeight = 4920
ScaleWidth = 6915
TabIndex = 2
Top = 735
Width = 6945
Begin TextBox TitlePublisher
DataField = "Company Name"
DataSource = "DataCtl(2)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Left = 315
TabIndex = 25
Top = 3570
Width = 4530
End
Begin TextBox TitlePubID
DataField = "PubID"
DataSource = "DataCtl(1)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Left = 4305
TabIndex = 22
Top = 1260
Width = 750
End
Begin TextBox TitleISBN
DataField = "ISBN"
DataSource = "DataCtl(1)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Left = 1365
TabIndex = 20
Top = 1260
Width = 2850
End
Begin TextBox TitleAuID
DataField = "Au_ID"
DataSource = "DataCtl(1)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Left = 315
TabIndex = 18
Top = 1260
Width = 645
End
Begin TextBox TitleYearPublished
DataField = "Year Published"
DataSource = "DataCtl(1)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Left = 5145
TabIndex = 16
Top = 1260
Width = 1695
End
Begin TextBox TitleField
DataField = "Title"
DataSource = "DataCtl(1)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Left = 105
TabIndex = 14
Top = 315
Width = 6735
End
Begin Data DataCtl
BackColor = &H00C0C0C0&
Caption = "Titles"
Connect = ""
DatabaseName = "biblio.mdb"
Exclusive = 0 'False
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 1
Left = 0
Options = 0
ReadOnly = -1 'True
RecordSource = "Select * from Titles Order by Title"
Top = 4515
Width = 6945
End
Begin Label TitleAuthor
BorderStyle = 1 'Fixed Single
DataField = "Author"
DataSource = "DataCtl(0)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 540
Left = 315
TabIndex = 57
Top = 2730
Width = 6420
End
Begin Line Line1
BorderWidth = 2
X1 = 6930
X2 = 0
Y1 = 2310
Y2 = 2310
End
Begin Label Label5
BackColor = &H00C0C0C0&
Caption = "Publisher"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Index = 6
Left = 420
TabIndex = 26
Top = 3255
Width = 1485
End
Begin Label Label5
BackColor = &H00C0C0C0&
Caption = "Author"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Index = 5
Left = 420
TabIndex = 24
Top = 2415
Width = 1485
End
Begin Label Label5
BackColor = &H00C0C0C0&
Caption = "PubID"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Index = 4
Left = 4305
TabIndex = 23
Top = 945
Width = 750
End
Begin Label Label5
BackColor = &H00C0C0C0&
Caption = "ISBN"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Index = 3
Left = 1470
TabIndex = 21
Top = 945
Width = 1485
End
Begin Label Label5
BackColor = &H00C0C0C0&
Caption = "Author ID"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Index = 2
Left = 105
TabIndex = 19
Top = 945
Width = 1485
End
Begin Label Label5
BackColor = &H00C0C0C0&
Caption = "Year Published"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Index = 1
Left = 5145
TabIndex = 17
Top = 945
Width = 1695
End
Begin Label Label5
BackColor = &H00C0C0C0&
Caption = "Title"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00C00000&
Height = 330
Index = 0
Left = 105
TabIndex = 15
Top = 0
Width = 1485
End
End
Begin PictureBox Group
BackColor = &H00C0C0C0&
Height = 4950
Index = 3
Left = 0
ScaleHeight = 4920
ScaleWidth = 6915
TabIndex = 0
Top = 735
Width = 6945
Begin TextBox CommentsPubID
DataField = "PubID"
DataSource = "DataCtl(3)"
Height = 330
Left = 5040
TabIndex = 46
Top = 630
Width = 1275
End
Begin TextBox Text4
DataField = "Comments"
DataSource = "DataCtl(3)"
Height = 3270
Left = 105
MultiLine = -1 'True
TabIndex = 44
Top = 1155
Width = 6735
End
Begin Data DataCtl
BackColor = &H00C0C0C0&
Caption = "Comments"
Connect = ""
DatabaseName = "biblio.mdb"
Exclusive = 0 'False
Height = 435
Index = 3
Left = 0
Options = 0
ReadOnly = -1 'True
RecordSource = "Publisher Comments"
Top = 4515
Width = 6840
End
Begin Label Label11
BorderStyle = 1 'Fixed Single
DataField = "Publisher"
DataSource = "DataCtl(3)"
Height = 330
Left = 105
TabIndex = 49
Top = 315
Width = 4845
End
Begin Label Label10
BackColor = &H00C0C0C0&
Caption = "Comments on Publisher Named:"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00C00000&
Height = 330
Left = 105
TabIndex = 48
Top = 0
Width = 4845
End
Begin Label Label9
BackColor = &H00C0C0C0&
Caption = "PubID"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Left = 5040
TabIndex = 47
Top = 315
Width = 855
End
Begin Label Label8
BackColor = &H00C0C0C0&
Caption = "Comments"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Left = 105
TabIndex = 45
Top = 840
Width = 1695
End
End
Begin PictureBox Group
BackColor = &H00C0C0C0&
Height = 4950
Index = 2
Left = 0
ScaleHeight = 4920
ScaleWidth = 6915
TabIndex = 1
Top = 735
Width = 6945
Begin Data DataCtl
BackColor = &H00C0C0C0&
Caption = "Publishers"
Connect = ""
DatabaseName = "biblio.mdb"
Exclusive = 0 'False
Height = 435
Index = 2
Left = 0
Options = 0
ReadOnly = -1 'True
RecordSource = "Select * from Publishers order by Name"
Top = 4515
Width = 6735
End
Begin ComboBox PubsAuthors
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Left = 105
Style = 2 'Dropdown List
TabIndex = 55
Top = 3990
Width = 6735
End
Begin ComboBox PubsTitles
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Left = 105
Style = 2 'Dropdown List
TabIndex = 53
Top = 3045
Width = 6735
End
Begin TextBox Text1
DataField = "Fax"
DataSource = "DataCtl(2)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 8
Left = 2940
TabIndex = 41
Top = 2415
Width = 2220
End
Begin TextBox Text1
DataField = "Telephone"
DataSource = "DataCtl(2)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 7
Left = 105
TabIndex = 40
Top = 2415
Width = 2745
End
Begin TextBox Text1
DataField = "Zip"
DataSource = "DataCtl(2)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 6
Left = 3885
TabIndex = 39
Top = 1890
Width = 1275
End
Begin TextBox Text1
DataField = "State"
DataSource = "DataCtl(2)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 5
Left = 2940
TabIndex = 38
Top = 1890
Width = 855
End
Begin TextBox Text1
DataField = "City"
DataSource = "DataCtl(2)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 4
Left = 105
TabIndex = 37
Top = 1890
Width = 2745
End
Begin TextBox Text1
DataField = "Address"
DataSource = "DataCtl(2)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 3
Left = 105
TabIndex = 35
Top = 1575
Width = 5055
End
Begin TextBox Text1
DataField = "Name"
DataSource = "DataCtl(2)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 420
Index = 2
Left = 105
TabIndex = 33
Top = 315
Width = 6735
End
Begin TextBox PubPubID
DataField = "PubID"
DataSource = "DataCtl(2)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Left = 5775
TabIndex = 31
Top = 1680
Width = 855
End
Begin TextBox Text1
DataField = "Company Name"
DataSource = "DataCtl(2)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 0
Left = 105
TabIndex = 29
Top = 1050
Width = 6525
End
Begin Shape Shape1
Height = 1905
Left = 105
Top = 840
Width = 6630
End
Begin Label Label13
BackColor = &H00C0C0C0&
Caption = "Authors"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Left = 105
TabIndex = 56
Top = 3780
Width = 1905
End
Begin Label Label12
BackColor = &H00C0C0C0&
Caption = "Titles Published"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Left = 105
TabIndex = 54
Top = 2835
Width = 1905
End
Begin Label Label7
BackColor = &H00C0C0C0&
Caption = "Phone - FAX"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 4
Left = 210
TabIndex = 43
Top = 2205
Width = 1590
End
Begin Label Label7
BackColor = &H00C0C0C0&
Caption = "Address"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Index = 3
Left = 210
TabIndex = 36
Top = 1365
Width = 1590
End
Begin Label Label7
BackColor = &H00C0C0C0&
Caption = "Publisher"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00C00000&
Height = 330
Index = 2
Left = 105
TabIndex = 34
Top = 0
Width = 1800
End
Begin Label Label7
BackColor = &H00C0C0C0&
Caption = "PubID"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 1
Left = 5880
TabIndex = 32
Top = 1470
Width = 750
End
Begin Label Label7
BackColor = &H00C0C0C0&
Caption = "Company Name"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Index = 0
Left = 210
TabIndex = 30
Top = 840
Width = 3585
End
End
Begin PictureBox Group
BackColor = &H00C0C0C0&
Height = 4950
Index = 0
Left = 0
ScaleHeight = 4920
ScaleWidth = 6915
TabIndex = 3
Top = 735
Width = 6945
Begin ListBox ListPublishers
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 990
Left = 210
TabIndex = 50
Top = 3255
Width = 6210
End
Begin Data DataCtl
Caption = "PubsList"
Connect = ""
DatabaseName = "biblio.mdb"
Exclusive = 0 'False
Height = 330
Index = 4
Left = 0
Options = 0
ReadOnly = -1 'True
RecordSource = ""
Top = 4095
Visible = 0 'False
Width = 1440
End
Begin ListBox TitlesList
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 990
Left = 210
TabIndex = 28
Top = 1575
Width = 6210
End
Begin TextBox AuthorName
DataField = "Author"
DataSource = "DataCtl(0)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Left = 105
TabIndex = 11
Top = 315
Width = 4950
End
Begin TextBox AuthorAuID
DataField = "Au_ID"
DataSource = "DataCtl(0)"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Left = 5250
TabIndex = 4
Top = 630
Width = 1170
End
Begin Data DataCtl
BackColor = &H00C0C0C0&
Caption = "Authors"
Connect = ""
DatabaseName = "biblio.mdb"
Exclusive = 0 'False
Height = 435
Index = 0
Left = 0
Options = 0
ReadOnly = -1 'True
RecordSource = "Select * from Authors Order by Author"
Top = 4515
Width = 6735
End
Begin Label Label7
BackColor = &H00C0C0C0&
Caption = "Publishers"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 5
Left = 210
TabIndex = 51
Top = 2940
Width = 1695
End
Begin Label Label6
BackColor = &H00C0C0C0&
Caption = "Titles"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 330
Left = 210
TabIndex = 27
Top = 1155
Width = 1905
End
Begin Line Line2
BorderWidth = 2
X1 = 0
X2 = 6930
Y1 = 1050
Y2 = 1050
End
Begin Label Label4
BackColor = &H00C0C0C0&
Caption = "Author Name"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00C00000&
Height = 435
Left = 105
TabIndex = 13
Top = 0
Width = 2430
End
Begin Label Label3
BackColor = &H00C0C0C0&
Caption = "Author ID"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Left = 5250
TabIndex = 12
Top = 315
Width = 1170
End
End
Begin PictureBox ButtonBox
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 750
Left = 0
ScaleHeight = 720
ScaleWidth = 8385
TabIndex = 5
Top = 0
Width = 8415
Begin CommandButton DisplayStyle
Caption = "ShowAll"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 750
Left = 6720
TabIndex = 52
Top = 0
Width = 1695
End
Begin CommandButton TablePointer
Caption = "Authors"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 750
Index = 0
Left = 1680
TabIndex = 42
Top = 0
Width = 1695
End
Begin CommandButton TablePointer
BackColor = &H00808000&
Caption = "Titles"
Default = -1 'True
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 750
Index = 1
Left = 0
TabIndex = 8
Top = 0
Width = 1695
End
Begin CommandButton TablePointer
Caption = "Publishers"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 750
Index = 2
Left = 3360
TabIndex = 7
Top = 0
Width = 1695
End
Begin CommandButton TablePointer
Caption = "Comments"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 750
Index = 3
Left = 5040
TabIndex = 6
Top = 0
Width = 1695
End
End
Begin Label Label2
Caption = "Label2"
Height = 435
Left = 3780
TabIndex = 10
Top = 3990
Width = 1170
End
Begin Label Label1
Caption = "Label1"
Height = 435
Left = 3780
TabIndex = 9
Top = 3990
Width = 1170
End
Begin Menu Menufile
Caption = "&File"
Begin Menu MenuFileExit
Caption = "E&xit"
End
End
Begin Menu MenuSelectMain
Caption = "&Select"
Begin Menu MenuSelect
Caption = "&Authors"
Index = 0
End
Begin Menu MenuSelect
Caption = "&Titles"
Index = 1
End
Begin Menu MenuSelect
Caption = "&Publishers"
Index = 2
End
Begin Menu MenuSelect
Caption = "Publisher &Comments"
Index = 3
End
End
Begin Menu MenuChanges
Caption = "&Changes"
Begin Menu MenuChangesLock
Caption = "&Data Locked"
Checked = -1 'True
End
End
End
Option Explicit
'
' Define the constants that refer to the data control
' control array. There are 5 data controls used. 1 for
' each table accessed in the BIBLIO database and 1 to
' generate the lists of publishers, titles and authors
'
Const Authors% = 0
Const Titles% = 1
Const Publishers% = 2
Const Comments% = 3
Const PubsList% = 4
Dim Loading As Integer
Sub AuthorAuID_Change ()
'
' The author ID has changed. Update the lists of titles
' and publisher information for this author.
'
Dim SavePlace As Variant
Dim SQL As String
If Loading Then Exit Sub
DoEvents
'
' Save the current record pointer in case the SQL query
' fails.
SavePlace = DataCtl(Titles).Recordset.Bookmark
'
' Clear the list of titles and publishers
' for this author
TitlesList.Clear
ListPublishers.Clear
'
' Query the database for all of the titles this author
' has written. Fill in the titleslist table with the records
'
SQL = "Select distinct Title from Titles"
SQL = SQL & " where titles.Au_ID = " & AuthorAuID.Text
DataCtl(PubsList).RecordSource = SQL
DataCtl(PubsList).Refresh
Do While Not DataCtl(PubsList).Recordset.EOF
TitlesList.AddItem DataCtl(PubsList).Recordset("Title")
DataCtl(PubsList).Recordset.MoveNext
Loop
'
' Do the same for the publishers for this author.
' This query joins the titles and publishers table
' on the publisher's ID number. It filters for the
' current author.
'
SQL = "Select distinct [Company Name] from Titles, Publishers "
SQL = SQL & " where titles.PubID = Publishers.PubID and "
SQL = SQL & " titles.Au_ID = " & AuthorAuID.Text
DataCtl(PubsList).RecordSource = SQL
DataCtl(PubsList).Refresh
Do While Not DataCtl(PubsList).Recordset.EOF
ListPublishers.AddItem DataCtl(PubsList).Recordset("Company Name")
DataCtl(PubsList).Recordset.MoveNext
Loop
End Sub
Sub DisplayStyle_Click ()
'
' Position the picture controls holding the table
' templates to either overlap or cascade.
'
Static AllState As Integer
Dim i As Integer, J As Integer
Dim TopIncr As Integer
Dim LeftIncr As Integer
AllState = Not AllState
If AllState = False Then
For i = Authors To Comments
Group(i).Top = ButtonBox.Top + ButtonBox.Height
Group(i).Left = 0
Group(i).ZOrder 1
Next i
form1.Height = Group(0).Height + Group(0).Top + ButtonBox.Height
DisplayStyle.Caption = "Show All"
Else
TopIncr = Group(0).Height * .06
LeftIncr = Group(0).Width * .06
J = 0
i = Publishers
GoSub SetLocation
i = Authors
GoSub SetLocation
i = Titles
GoSub SetLocation
form1.Height = Group(Titles).Height + Group(Titles).Top + ButtonBox.Height
DisplayStyle.Caption = "Show One"
End If
Exit Sub
SetLocation:
J = J + 1
Group(i).Top = Group(i).Top + J * TopIncr
Group(i).Left = Group(i).Left + J * LeftIncr
Group(i).ZOrder 0
Return
End Sub
Sub Form_Load ()
'
' Prevent the data controls from querying until all are
' actually loaded (which occurs at first Form_Paint.)
'
Loading = True
form1.Move 0, 0
End Sub
Sub Form_Paint ()
'
' The form has been painted (at least once). Let the
' data control build the templates and refresh the
' bound controls.
'
Loading = False
End Sub
Sub Group_Click (Index As Integer)
'
' One of the menu buttons was pressed.
'
TablePointer_Click (Index)
End Sub
Sub Group_Paint (Index As Integer)
'
' The group was repainted. Start the data control sequence
' that rebuilds all of the group templates.
'
Select Case Index
Case Authors: AuthorAuID_Change
End Select
End Sub
Sub ListPublishers_Click ()
Dim SavePlace As Variant
'
' The user has touched one of the publishers displayed.
' Assume that they want to seem more info on this publisher
' Tell the data control for the publishers template to
' find this publisher. Switch to that template.
'
SavePlace = DataCtl(Publishers).Recordset.Bookmark
DataCtl(Publishers).Recordset.FindFirst "[Company Name] = '" & ListPublishers.List(ListPublishers.ListIndex) & "'"
If DataCtl(Publishers).Recordset.NoMatch = True Then
DataCtl(Publishers).Recordset.Bookmark = SavePlace
Beep
Else
TablePointer_Click (Publishers)
End If
End Sub
Sub MenuChangesLock_Click ()
Dim i
' Lock or unlock the data controls.
' Note that all data controls have to be refreshed
' for any of this to take effect.
'
MenuChangesLock.Checked = Not MenuChangesLock.Checked
If Not MenuChangesLock.Checked Then
i = MsgBox("Permit changes to sample BIBLIO database?", MB_ICONQUESTION + MB_OKCANCEL, "BIBLIO Database")
If i = IDOK Then
MenuChangesLock.Checked = False
Else
Exit Sub
End If
End If
For i = Authors To Comments
DataCtl(i).ReadOnly = MenuChangesLock.Checked
Next i
For i = Authors To Comments
Debug.Print i, DataCtl(i).RecordSource
DataCtl(i).Refresh
Next i
End Sub
Sub MenuFileExit_Click ()
End
End Sub
Sub MenuSelect_Click (Index As Integer)
TablePointer_Click (Index)
End Sub
Sub PubPubID_Change ()
'
' The publisher's ID has changed. Perhaps another
' control did a find on this control.
'
Dim SavePlace As Variant
Dim SQL As String
If Loading Then Exit Sub
PubsTitles.Clear
PubsAuthors.Clear
'
' Find all titles that this publisher has printed.
'
SQL = "Select distinct Title from Titles"
SQL = SQL + " where titles.PubID = " & PubPubID.Text
DataCtl(PubsList).RecordSource = SQL
DataCtl(PubsList).Refresh
'
' Put them in the table.
'
Do While Not DataCtl(PubsList).Recordset.EOF
PubsTitles.AddItem DataCtl(PubsList).Recordset(0)
DataCtl(PubsList).Recordset.MoveNext
Loop
If PubsTitles.ListCount > 0 Then PubsTitles.ListIndex = 0
'
' Find all of the authors this publisher deals with.
'
SQL = "Select distinct Author from Titles, Authors"
SQL = SQL & " where Titles.AU_ID = Authors.AU_ID and "
SQL = SQL & " titles.PubID = " & PubPubID.Text
DataCtl(PubsList).RecordSource = SQL
DataCtl(PubsList).Refresh
'
' Put them in the authors list table.
'
Do While Not DataCtl(PubsList).Recordset.EOF
PubsAuthors.AddItem DataCtl(PubsList).Recordset(0)
DataCtl(PubsList).Recordset.MoveNext
Loop
If PubsAuthors.ListCount > 0 Then PubsAuthors.ListIndex = 0
End Sub
Sub TablePointer_Click (Index As Integer)
Dim i%
'
' User has pressed one of the command buttons.
'
Select Case Index
Case Authors: AuthorAuID_Change
Case Publishers: PubPubID_Change
End Select
Group(Index).ZOrder 0
For i = Authors To Comments
If i <> Index Then
TablePointer(i).Enabled = True
TablePointer(i).Default = True
Else
TablePointer(i).Enabled = False
End If
Next i
End Sub
Sub TitleAuID_Change ()
Dim SavePlace As Variant
'
' The author has changed in the title template.
' look up this author information using the author data
' control. Note that this changes the author template too.
'
If Loading Then Exit Sub
SavePlace = DataCtl(Authors).Recordset.Bookmark
DataCtl(Authors).Recordset.FindFirst "Au_ID =" & TitleAuID
If DataCtl(Authors).Recordset.NoMatch Then
DataCtl(Authors).Recordset.Bookmark = SavePlace
End If
End Sub
Sub TitlePubID_Change ()
Dim SavePlace As Variant
'
' The PubID has changed in the title template.
' look up this publisher using the publisher data
' control. Note that this changes the publisher
' template too.
' Also change the comments template.
'
If Loading Then Exit Sub
SavePlace = DataCtl(Publishers).Recordset.Bookmark
DataCtl(Publishers).Recordset.FindFirst "PubID =" & TitlePubID
If DataCtl(Publishers).Recordset.NoMatch Then
DataCtl(Publishers).Recordset.Bookmark = SavePlace
End If
SavePlace = DataCtl(Comments).Recordset.Bookmark
DataCtl(Comments).Recordset.FindFirst "PubID =" & TitlePubID
If DataCtl(Comments).Recordset.NoMatch Then
DataCtl(Comments).Recordset.Bookmark = SavePlace
End If
End Sub